Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/dll_gen/winfox/timechg.wd_/timechg.wd

Text File | 1995-01-31 | 7KB | 272 lines

VERSION 2.00
Begin Form TimeChg
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "New File Time"
   ClientHeight    =   3375
   ClientLeft      =   1680
   ClientTop       =   2445
   ClientWidth     =   2310
   ControlBox      =   0   'False
   Height          =   3780
   Left            =   1620
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3375
   ScaleWidth      =   2310
   Top             =   2100
   Width           =   2430
   Begin Spin Spin4
      BackColor       =   &H00C0C0C0&
      BoundaryBeep    =   0   'False
      ChangeValue     =   10
      Height          =   315
      Left            =   300
      Max             =   59
      Min             =   0
      Top             =   1140
      Value           =   0
      Width           =   195
      WrapAround      =   -1  'True
   End
   Begin Spin Spin3
      BackColor       =   &H00C0C0C0&
      BoundaryBeep    =   0   'False
      ChangeValue     =   1
      Height          =   315
      Left            =   1800
      Max             =   1
      Min             =   0
      Top             =   1860
      Value           =   0
      Width           =   195
      WrapAround      =   -1  'True
   End
   Begin Spin Spin2
      BackColor       =   &H00C0C0C0&
      BoundaryBeep    =   0   'False
      ChangeValue     =   1
      Height          =   315
      Left            =   1800
      Max             =   59
      Min             =   0
      Top             =   1140
      Value           =   0
      Width           =   195
      WrapAround      =   -1  'True
   End
   Begin Spin Spin1
      BackColor       =   &H00C0C0C0&
      BoundaryBeep    =   0   'False
      ChangeValue     =   1
      Height          =   315
      Left            =   1800
      Max             =   12
      Min             =   1
      Top             =   420
      Value           =   1
      Width           =   195
      WrapAround      =   -1  'True
   End
   Begin CommandButton CmdNow
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Now"
      Height          =   375
      Left            =   240
      TabIndex        =   8
      Top             =   2400
      Width           =   855
   End
   Begin CommandButton CmdCancel
      BackColor       =   &H00C0C0C0&
      Cancel          =   -1  'True
      Caption         =   "&Cancel"
      Height          =   375
      Left            =   1200
      TabIndex        =   7
      Top             =   2400
      Width           =   855
   End
   Begin CommandButton CmdOkay
      BackColor       =   &H00C0C0C0&
      Caption         =   "O &K A Y"
      Default         =   -1  'True
      Height          =   375
      Left            =   240
      TabIndex        =   6
      Top             =   2760
      Width           =   1815
   End
   Begin Label Lblmeridiem
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      Caption         =   "PM"
      Height          =   195
      Left            =   600
      TabIndex        =   5
      Top             =   1920
      Width           =   1095
   End
   Begin Label Label5
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Meridiem:"
      ForeColor       =   &H00000080&
      Height          =   195
      Left            =   600
      TabIndex        =   4
      Top             =   1680
      Width           =   1095
   End
   Begin Label LblMinutes
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      Caption         =   "59"
      Height          =   195
      Left            =   600
      TabIndex        =   3
      Top             =   1200
      Width           =   1095
   End
   Begin Label Label3
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Minutes:"
      ForeColor       =   &H00000080&
      Height          =   195
      Left            =   600
      TabIndex        =   2
      Top             =   960
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Hour:"
      ForeColor       =   &H00000080&
      Height          =   195
      Left            =   600
      TabIndex        =   1
      Top             =   240
      Width           =   1095
   End
   Begin Label LblHours
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      Caption         =   "12"
      Height          =   195
      Left            =   600
      TabIndex        =   0
      Top             =   480
      Width           =   1095
   End
End

Dim TempHours As Integer
Dim TempMinutes As Integer
Dim TempMeridiem As Integer

Sub CmdCancel_Click ()
    Unload Me
End Sub

Sub CmdNow_Click ()
    TempHours = Val(Format$(Now, "h"))
    If TempHours > 11 Then
        TempHours = TempHours - 12
        TempMeridiem = 1
        Else
        TempMeridiem = 0
        End If
    If TempHours = 0 Then TempHours = 12
    Spin1.Value = TempHours
    ShowHours
    Spin3.Value = TempMeridiem
    ShowMeridiem
    TempMinutes = Val(Format$(Now, "nn"))
    Spin2.Value = TempMinutes
    Spin4.Value = TempMinutes
    ShowMinutes
End Sub

Sub CmdOkay_Click ()
    If TempHours = 12 Then TempHours = 0
    TheHours = Format$(TempHours + (12 * TempMeridiem), "##")
    TheMinutes = Format$(TempMinutes, "##")
    Unload Me
End Sub

Sub Form_Load ()
    FormCenterForm Me, FileTD
    TempHours = Val(TheHours)
    If TempHours > 11 Then
        TempHours = TempHours - 12
        TempMeridiem = 1
        Else
        TempMeridiem = 0
        End If
    If TempHours = 0 Then TempHours = 12
    Spin1.Value = TempHours
    ShowHours
    Spin3.Value = TempMeridiem
    ShowMeridiem
    TempMinutes = Val(TheMinutes)
    Spin2.Value = TempMinutes
    Spin4.Value = TempMinutes
    ShowMinutes

    Screen.MousePointer = 0
End Sub

Sub Form_Paint ()
    DoForm3D Me, "raised", 2, 0
    DoForm3D Me, "sunken", 2, 2
    DoControl3D LblHours, "sunken", 1
    DoControl3D LblMinutes, "sunken", 1
    DoControl3D LblMeridiem, "sunken", 1
    DoControl3D Spin1, "raised", 1
    DoControl3D Spin2, "raised", 1
    DoControl3D Spin3, "raised", 1
    DoControl3D Spin4, "raised", 1
End Sub

Sub ShowHours ()
    LblHours.Caption = Format$(TempHours, "#0")
End Sub

Sub ShowMeridiem ()
    If TempMeridiem = 0 Then
        LblMeridiem.Caption = "AM"
        Else
        LblMeridiem.Caption = "PM"
        End If
End Sub

Sub ShowMinutes ()
    LblMinutes.Caption = Format$(TempMinutes, "00")
End Sub

Sub Spin1_Change ()
    TempHours = Spin1.Value
    ShowHours
End Sub

Sub Spin2_Change ()
    TempMinutes = Spin2.Value
    Spin4.Value = TempMinutes
    ShowMinutes
End Sub

Sub Spin3_Change ()
    TempMeridiem = Spin3.Value
    ShowMeridiem
End Sub

Sub Spin4_Change ()
    TempMinutes = Spin4.Value
    Spin2.Value = TempMinutes
    ShowMinutes
End Sub